Column

Component 1

ordered_types <- pokemon %>%
  mutate(`Type 1` = reorder(`Type 1`, Total, FUN = median)) %>%
  pull(`Type 1`) %>%
  levels()

p1 <- ggplot(shared_pokemon, aes(x = `Type 1`, y = Total, fill = `Type 1`)) +
  geom_boxplot() +
  scale_x_discrete(limits = ordered_types) +
  labs(x = "Pokemon Type")

ggplotly(p1)

Column

Component 2

p <- ggplot(pokemon, aes(x = Defense, y = Attack, color = `Type 1`)) +
  geom_point()

ggplotly(p)